home *** CD-ROM | disk | FTP | other *** search
/ Asobe! Fotoshock 5.0 ERO / Asobe! Fotoshock 5.0 ERO.iso / pc / main.dxr / ì‡ë†_17_äeÅXÇÃç¿ïWílǝÉäÉXÉgâªÇÝÇÈ.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  1.8 KB  |  63 lines
  1. global gphotoloclist, gpartslist
  2.  
  3. on testmakeloclist
  4.   global glistfile
  5.   set checktxt to "Check.txt"
  6.   case the runMode of
  7.     "Author":
  8.       set glistfile to the moviePath & checktxt
  9.     "projector":
  10.       set glistfile to the applicationPath & checktxt
  11.   end case
  12.   set alllines to EMPTY
  13.   set gphotoloclist to [:]
  14.   repeat with n = 1 to 60
  15.     set gpartslist to [:]
  16.     if n < 10 then
  17.       set movname to "000" & string(n)
  18.     else
  19.       set movname to "00" & string(n)
  20.     end if
  21.     set the fileName of window movname to "@/dir/" & movname
  22.     open(window movname)
  23.     tell window movname
  24.       updateStage()
  25.       if count(gpartslist) > 0 then
  26.         repeat with m = 1 to count(gpartslist)
  27.           set locallist to [:]
  28.           set myins to getAt(gpartslist, m)
  29.           set num to the pspnum of myins
  30.           addProp(locallist, #loc, the loc of sprite num)
  31.           if the newmem of myins = the member of sprite num then
  32.             addProp(locallist, #cast, 1)
  33.           else
  34.             addProp(locallist, #cast, 0)
  35.           end if
  36.           if the pmode of myins = #rgb then
  37.             addProp(locallist, #rgb, [#redShift: 255, #greenShift: 255, #blueShift: 255])
  38.           end if
  39.           sort(locallist)
  40.           if not (locallist = [:]) then
  41.             set spn to value("#" & string(num))
  42.             addProp(gphotoloclist, spn, locallist)
  43.           end if
  44.         end repeat
  45.       end if
  46.     end tell
  47.     deleteAll(the windowList)
  48.     sort(gphotoloclist)
  49.     set alllines to alllines & string(gphotoloclist) & RETURN
  50.     set gphotoloclist to [:]
  51.   end repeat
  52.   beep()
  53.   set longtext to alllines
  54.   set myio_file to new(xtra("fileIO"))
  55.   createfile(myio_file, glistfile)
  56.   setfinderinfo(myio_file, "TEXT NICS")
  57.   openfile(myio_file, glistfile, 2)
  58.   writestring(myio_file, longtext)
  59.   closefile(myio_file)
  60.   set myio_file to 0
  61.   beep()
  62. end
  63.